home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Utilities / Zip4mat / FormatIBM < prev    next >
Encoding:
Text File  |  1998-07-03  |  185 b   |  7 lines
  1. requestchoice >env:FM "" "Are you sure you want to format this ZIP disk..? " Yes No
  2. if val $FM eq 1
  3.    FormatZIP 1230scsi.device 5
  4.    ziptool >nil: zpc: eject
  5. endif
  6. delete >nil: env:fm
  7.